home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 4 / Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64 / 5. hsm-duotris (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  79 lines
  1. 10 dim hs$(31)
  2. 20 poke53280,11:poke53281,0:poke646,13:print"[147]      ford prefect's highscoremaker"
  3. 30 print"  written 1993   public domain software"
  4. 40 print"[156] spiel : [159]duotris"
  5. 50 print"      [154]        highscore:"
  6. 60 print"              [183][183][183][183][183][183][183][183][183][183][153]"
  7. 70 :
  8. 80 : l$=">>>>duotris-high,p,r"
  9. 90 :
  10. 100 :  open 1,8,2,l$
  11. 110 : get #1, no$, no$
  12. 120 :   for l=0 to 31
  13. 130 :     for r=0 to 15
  14. 140 :     get #1, byte$
  15. 150 :     if byte$="" then                        poke 49152+l*16+r,0:goto 180
  16. 160 :     poke 49152+l*16+r,asc(byte$)
  17. 170 :     hs$(l)=hs$(l)+byte$
  18. 180 :     nextr
  19. 190 :   nextl
  20. 200 : close 1
  21. 210 :
  22. 220 : poke 646,7
  23. 230 :
  24. 240 : forl=0to15
  25. 250 :    printl+1,hs$(l)
  26. 260 : nextl
  27. 270 : print"[153] <weiter mit space> "
  28. 280 : get a$:ifa$<>" "then280
  29. 290 :
  30. 300 : poke 646,13
  31. 310 :
  32. 320 : forl=16to31
  33. 330 :    printl+1,hs$(l)
  34. 340 : nextl
  35. 350 :
  36. 360 : print"[154] welche nummer soll geaendert werden ?"
  37. 370 : print" gib ein : 1 - 32 oder _ zum neustart"
  38. 380 : print"          -0 zum beenden-"
  39. 390 : input" >>";a$
  40. 400 :  ifa$="_"then       run
  41. 410 :  a=val(a$)
  42. 420 :  if a < 0 or a > 32 then                 print"[145]";:goto390
  43. 430 :  if a = 0 then end
  44. 440 :
  45. 450 : b= (a-1)
  46. 470 :
  47. 480 : print"[158] max. 16 zeichen !!!":print"  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  48. 490 : print"[153]  ";hs$(b);"[159]"
  49. 500 : input"[145]";b$
  50. 510 :
  51. 520 : iflen(b$)>16thenprint"[145]";:goto500
  52. 530 : iflen(b$)<16thengosub700
  53. 540 : print"  [158] aenderungen werden gespeichert !"
  54. 545 :
  55. 550 : forl=1to16
  56. 560 :   a=asc(mid$(b$,l,1))
  57. 570 :   poke49152+b*16+l-1,a
  58. 580 : nextl
  59. 590 :
  60. 600 : s$=">>>>duotris-high,p,w"
  61. 610 : open 15,8,15,"s:>>>>duotris-high":close15
  62. 620 :
  63. 630 : open 1,8,2,s$
  64. 640 : print#1,chr$(0);chr$(101);
  65. 650 :   forl=49152to49152+511
  66. 660 :    print#1,chr$(peek(l));
  67. 670 :   nextl
  68. 680 : close 1
  69. 690 :                            run
  70. 700 : y=len(b$):foro=yto15:b$=b$+chr$(32):nexto:return
  71. 705 :
  72. 710 : ford prefect's highscoremaker
  73. 720 : hsm-duotris  (w) 1993 by
  74. 730 :
  75. 740 : danny busch
  76. 750 : birkenallee 18
  77. 760 : 65549 limburg (germany)
  78. 770 : tel.: 06431/25866
  79.